home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Index.dxr / 00109_Control Menu handlers.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  2.7 KB  |  36 lines
  1. global roomlist, contentsprite, glist, objectlist, originalloc
  2.  
  3. on installselectcontrol whichway
  4.   case whichway of
  5.     "Room":
  6.       set roomlist to [105, 106, 107, 111, 202, 203, 204, 205, 207, 209, 211, 213, 305, 306, 307, 308, 309, 310, 312, 314, 401]
  7.       set rectlist to [rect(16, 41, 56, 65), rect(62, 41, 102, 65), rect(106, 41, 146, 65), rect(151, 41, 191, 65), rect(195, 41, 235, 65), rect(241, 42, 281, 66), rect(286, 42, 326, 66), rect(331, 41, 371, 65), rect(375, 41, 415, 65), rect(421, 41, 461, 65), rect(466, 41, 506, 65), rect(510, 41, 550, 65), rect(556, 41, 596, 65), rect(601, 41, 641, 65), rect(646, 41, 686, 65), rect(691, 42, 731, 66), rect(736, 41, 776, 65), rect(781, 41, 821, 65), rect(826, 42, 866, 66), rect(871, 41, 911, 65), rect(918, 41, 969, 66)]
  8.       set actslist to [120, -169, -424, -1699, -1835, -1971, -2124, -2498, -2787, -3025, -4232, -4538, -4657, -4708, -5184, -5354, -5422, -5847, -5915, -6255, -6255]
  9.     "Index":
  10.       set roomlist to ["a", "b", "c", "d", "f", "g", "i", "j", "l", "m", "o", "p", "r", "s", "t", "u", "v", "w", "z"]
  11.       set rectlist to [rect(16, 38, 52, 70), rect(57, 38, 93, 70), rect(97, 38, 133, 70), rect(139, 38, 175, 70), rect(181, 38, 217, 70), rect(223, 39, 259, 71), rect(262, 38, 298, 70), rect(299, 38, 335, 70), rect(338, 39, 374, 71), rect(379, 38, 415, 70), rect(423, 38, 459, 70), rect(466, 38, 502, 70), rect(509, 39, 545, 71), rect(552, 38, 588, 70), rect(592, 38, 628, 70), rect(632, 39, 668, 71), rect(675, 37, 711, 69), rect(720, 37, 756, 69), rect(761, 39, 797, 71)]
  12.       set actslist to [120, -16, -1971, -2515, -2634, -2787, -3263, -3501, -3943, -4079, -4334, -4504, -4844, -4997, -5286, -5813, -5864, -5932, -5932]
  13.     "Dynasty":
  14.       set roomlist to ["D1", "D2", "D3", "D4", "D5", "D6", "D7", "D8", "D9", "D10"]
  15.       set rectlist to [rect(18, 39, 131, 70), rect(136, 39, 249, 70), rect(247, 38, 360, 69), rect(363, 38, 507, 71), rect(508, 38, 621, 71), rect(614, 37, 727, 69), rect(725, 39, 838, 72), rect(832, 38, 945, 71), rect(941, 38, 1054, 71), rect(1048, 38, 1161, 71)]
  16.       set actslist to [120, 1, -543, -1580, -1954, -2141, -2396, -3127, -3212, -4045]
  17.   end case
  18.   set originalloc to getAt(actslist, 1)
  19.   addroomcontrol(roomcontentsprite, rectlist, actslist, #up)
  20. end
  21.  
  22. on installcontrol
  23.   global endSprite
  24.   set whichgroup to word 1 of the frameLabel
  25.   repeat with i = 1 to endSprite - 1
  26.     set hilitelist to value(field (whichgroup && "List" && i))
  27.     set rectlist to []
  28.     set actslist to []
  29.     repeat with counter = 1 to count(hilitelist)
  30.       append(rectlist, getAt(hilitelist, counter))
  31.       append(actslist, getPropAt(hilitelist, counter))
  32.     end repeat
  33.     addcontrol(i + 1, rectlist, actslist, #up)
  34.   end repeat
  35. end
  36.